home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-03
/
qbpacket.zip
/
MUSIC.BAS
< prev
next >
Wrap
BASIC Source File
|
1992-03-27
|
16KB
|
523 lines
DECLARE SUB PreludioXV ()
DECLARE SUB PreludioIV ()
DECLARE SUB ChickenSoup ()
DECLARE SUB EentsyWeentsySpider ()
DECLARE SUB HickoryDickoryDock ()
DECLARE SUB LittleGreenFrog ()
DECLARE SUB AngelsWeHaveHeardOnHigh ()
DECLARE SUB WhereIsThumbkin ()
DECLARE SUB ShellBeCominRoundTheMountain ()
DECLARE SUB LittlePeterRabbit ()
DECLARE SUB DownByTheStation ()
DECLARE SUB PartitaInE ()
DECLARE SUB TheTrain ()
DECLARE SUB Bingo ()
DECLARE SUB JohnJacobJingleheimerSchmidt ()
DECLARE SUB ALostBalloon ()
DECLARE SUB GoodEnoughToEat ()
DECLARE SUB LittleCabinInTheWood ()
DECLARE SUB StarSpangledBanner ()
DECLARE SUB OldMacDonaldHadAFarm ()
CLS
DoStatement:
DO
CLS
COLOR 12
LOCATE 1, 73
PRINT "Page 1"
COLOR 6
LOCATE 1, 38
PRINT "MENU"
PRINT
COLOR 2
PRINT " 1. A Lost Balloon"
PRINT " 2. Angels We Have Heard On High"
PRINT " 3. Bach IV Preludio"
PRINT " 4. Bach Partita In E"
PRINT " 5. Bach XV Preludio"
PRINT " 6. Bingo"
PRINT " 7. Chicken Soup"
PRINT " 8. Down By The Station"
PRINT " 9. Eentsy Weentsy Spider"
PRINT "10. Good Enough To Eat"
PRINT "11. Hickory Dickory Dock"
PRINT "12. John Jacob Jingleheimer Schmidt"
PRINT "13. Little Cabin In The Wood"
PRINT "14. Little Green Frog"
PRINT "15. Little Peter Rabbit"
PRINT "16. Old MacDonald Had A Farm"
PRINT "17. She'll Be Comin' 'Round The Mountain"
PRINT "18. ";
COLOR 20
PRINT "GO TO PAGE TWO"
LOCATE 23, 24
COLOR 5
LINE INPUT "Enter your choice here (1-18): "; c$
Choice = VAL(c$)
SELECT CASE Choice
CASE 1
Name$ = "A Lost Balloon, by H. Baron Moss and Ed Kooperman"
Time% = 74
CASE 2
Name$ = "Angels We Have Heard On High"
Time% = 43
CASE 3
Name$ = "the IV Preludio, by Johann Sebastian Bach"
Time% = 66
CASE 4
Name$ = "the Partita in E, by Johann Sebastian Bach"
Time% = 77
CASE 5
Name$ = "the XV Preludio, by Johann Sebastian Bach"
Time% = 42
CASE 6
Name$ = "Bingo"
Time% = 9
CASE 7
Name$ = "Chicken Soup, by H. Baron Moss and Jack Pincus"
Time% = 70
CASE 8
Name$ = "Down By The Station"
Time% = 12
CASE 9
Name$ = "Eentsy Weentsy Spider"
Time% = 18
CASE 10
Name$ = "Good Enough To Eat, by H. Baron Moss and Muriel Moss"
Time% = 72
CASE 11
Name$ = "Hickory Dickory Dock"
Time% = 9
CASE 12
Name$ = "John Jacob Jingleheimer Schmidt"
Time% = 14
CASE 13
Name$ = "Little Cabin In The Wood"
Time% = 25
CASE 14
Name$ = "Little Green Frog"
Time% = 12
CASE 15
Name$ = "Little Peter Rabbit"
Time% = 16
CASE 16
Name$ = "Old MacDonald Had A Farm"
Time% = 16
CASE 17
Name$ = "She'll Be Comin' 'Round The Mountain"
Time% = 22
CASE 18
DoStatement2:
DO
CLS
COLOR 12
LOCATE 1, 73
PRINT "Page 2"
COLOR 6
LOCATE 1, 38
PRINT "MENU"
PRINT
COLOR 2
PRINT "19. Star Spangled Banner"
PRINT "20. The Train"
PRINT "21. Where Is Thumbkin?"
PRINT "22. ";
COLOR 20
PRINT "GO BACK TO PAGE ONE"
COLOR 2
PRINT "23. ";
COLOR 20
PRINT "EXIT"
LOCATE 23, 24
COLOR 5
LINE INPUT "Enter your choice here (19-23): "; c$
Choice2 = VAL(c$)
SELECT CASE Choice2
CASE 19
Name$ = "the Star Spangled Banner, by Francis Scott Key"
Time% = 38
CASE 20
Name$ = "The Train"
Time% = 12
CASE 21
Name$ = "Where is Thumbkin?"
Time% = 12
CASE 22
GOTO DoStatement
CASE 23
END
CASE ELSE
PRINT "Bad number. Try again."
SLEEP 2
CLS
GOTO LoopStatement2
END SELECT
CLS
COLOR 3
PRINT "You are about to hear ";
COLOR 15
PRINT Name$;
COLOR 3
PRINT "."
COLOR 5
PRINT "It takes";
COLOR 12
PRINT Time%;
COLOR 5
PRINT "seconds to play."
PRINT
COLOR 14
FOR I = 5 TO 1 STEP -1
PRINT RIGHT$(STR$(I), 1); "...";
SLEEP 1
NEXT I
COLOR 10
PLAY "MB"
SELECT CASE Choice2
CASE 19
StarSpangledBanner
CASE 20
TheTrain
CASE 21
WhereIsThumbkin
CASE ELSE
PRINT "***Error in menu setup***"
PRINT "Choice was:"; Choice2
END
END SELECT
LOCATE 23, 1
PRINT "Press any key to continue...."
WHILE INKEY$ = "": WEND
CLS
LoopStatement2:
LOOP
CASE ELSE
PRINT "Bad number. Try again."
SLEEP 2
CLS
GOTO LoopStatement
END SELECT
CLS
COLOR 3
PRINT "You are about to hear ";
COLOR 15
PRINT Name$;
COLOR 3
PRINT "."
COLOR 5
PRINT "It takes";
COLOR 12
PRINT Time%;
COLOR 5
PRINT "seconds to play."
PRINT
COLOR 14
FOR I = 5 TO 1 STEP -1
PRINT RIGHT$(STR$(I), 1); "...";
SLEEP 1
NEXT I
COLOR 10
PLAY "MB"
SELECT CASE Choice
CASE 1
ALostBalloon
CASE 2
AngelsWeHaveHeardOnHigh
CASE 3
PreludioIV
CASE 4
PartitaInE
CASE 5
PreludioXV
CASE 6
Bingo
CASE 7
ChickenSoup
CASE 8
DownByTheStation
CASE 9
EentsyWeentsySpider
CASE 10
GoodEnoughToEat
CASE 11
HickoryDickoryDock
CASE 12
JohnJacobJingleheimerSchmidt
CASE 13
LittleCabinInTheWood
CASE 14
LittleGreenFrog
CASE 15
LittlePeterRabbit
CASE 16
OldMacDonaldHadAFarm
CASE 17
ShellBeCominRoundTheMountain
CASE ELSE
PRINT "***Error in menu setup***"
PRINT "Choice was:"; Choice
EXIT DO
END SELECT
LOCATE 23, 1
PRINT "Press any key to continue...."
WHILE INKEY$ = "": WEND
CLS
LoopStatement:
LOOP
END
SUB ALostBalloon
PLAY "O2 L4 T160 MN <A >A2A G2G A2A G2G >C<BA"
PLAY "G2F ML E2. E2 MN <A >A2A G2G8G8 B-2B-"
PLAY ">C2C8C8 <B-GE- AF+E ML D2. D2 MN <A"
PLAY ">A2A G2G A2A G2G >C<BA G2F"
PLAY "ML E2. E2 MN <A >A2A G2G8G8 B-2B- >C2C8C8"
PLAY "ML <B-GE- MN AF+E ML D2. D2 MN E8D8 C+C+C+ E2E8D8"
PLAY "C+C+C+ E2E8F+8 G+2F+ G+2B ML G+2. G+ MN E8D8"
PLAY "C+C+C+ E2E8D8 C+EG+ B2A8A8 G+G+G+ G+G+G+"
PLAY "G+2. A2<A >A2A G2G A2A G2G"
PLAY ">C<BA G2F ML E2. E2 MN <A >A2A G2G8G8"
PLAY "B-2B- >C2C8C8 <B-GE- ML AF+ MN E ML D2. D2"
END SUB
SUB AngelsWeHaveHeardOnHigh
PLAY "O2 MN L4 T120 BBB>D D.C8<B2 BAB>D <B.A8G2"
PLAY "BBB>D D.C8<B2 BAB>D <B.A8G2"
PLAY "L8 ML >D2EDC<B>C2DC<BAB2>C<BAGA4. MN L4 D8D2 GAB>C< ML B2A P4"
PLAY "L8 >D2EDC<B>C2DC<BAB2>C<BAGA4. MN L4 D8D2 GAB>C< ML B2A2G1"
END SUB
SUB Bingo
PLAY "O2 T160 MS L8 C FFCC DDCC"
PLAY "FFGG A4F4 A4A4 B-B-B-4"
PLAY "G4G4 AAA4 F4F4 GGGF"
PLAY "ECDE F4F"
END SUB
SUB ChickenSoup
PLAY "MN L8 O2 T160 CD- CD-CD-E2 D-CC4EF EFEFG2"
PLAY "FEE2. A-4A-4B-4.A- G4F4 ML ED-C4 MN A-4A-4B-4.A-"
PLAY "G4F4 ML ED-C4 MN <B-4B-4>D-4<B-4 >G2G4A-4 B-4A-4G4.F"
PLAY "ED-C2 P4 P1 P2 P4 CD- CD-CD-E2"
PLAY "D-CC4EF EFEFG2 FEE2."
PLAY "A-4A-4B-4.A- G4F4 ML ED-C4 MN A-4A-4B-4.A- G4F4 ML ED-C4"
PLAY "MN <B-4>D-4F4B-4 >D-4.D-C4<B-4 P4 >C4C2 CCC2. <B4>C4D4.C"
PLAY "<B4A-4G4F4 B4>C4D4CC <B4.A-G4F4 EFG2F4"
PLAY "EFG2. BA-A-GBA-A-G G2.CD- CD-CD-E2"
PLAY "D-CC4EF EFEFG2 FEE2."
PLAY "A-4A-4B-4.A- G4F4 ML ED-C4 MN A-4A-4B-4.A- G4F4 ML ED-C4"
PLAY "MN <B-4>D-4F4B-4 >D-4<B-4B-4B-4 >C1 CCC2."
END SUB
SUB DownByTheStation
PLAY "MS O2 T160 L8 D4DEF+4F+4 EDEF+D4<A4>"
PLAY "F+F+F+GAAAA G4GAF+4 P4"
PLAY "DDDEF+4F+4 EDEF+D4<A4>"
PLAY "D4D4A4A4 E4F+4D4 P4"
END SUB
SUB EentsyWeentsySpider
PLAY "MS O2 L8 T160 C F4FF4G A4.A4A"
PLAY "G4FG4A F4 P8 P4 P8 A4.A4B-"
PLAY ">C4.C4. <B-4AB-4>C <A4 P8 P4 P8"
PLAY "F4.F4G A4.A4. G4FG4A"
PLAY "F4.C4C F4FF4G A4.A4A"
PLAY "G4FG4A F4 P8 P4"
END SUB
SUB GoodEnoughToEat
PLAY "O2 T120 L16 MN A8.AB-8.>C<G8.GA8.B-8 E-2 P8. GB-8.>C D8D4D8D-8.D-D-4"
PLAY "C1 D8.<B->C8.<B->D8D-4D-8 C8.<AB-8>C4<B4B8"
PLAY "B-8.GA8.B-A4F4 G2.B-8.B- ML A4B-4>C4<G4A4B-4"
PLAY "E-2 MN P8. GB-8.>C D4.DD-8.D-D-8.D- C2 P8. <B->C8.C+"
PLAY "D8.<B->C8D4D-4. C8.<AB-8.B>C8<B4B8"
PLAY "B-8.E-G8.B->D8D8D8 ML D4<F8 MN B-2. P8 B-8"
PLAY "B-8.B-B-4A-4B-8.B- F8.F P4 P4 E-4 G-8.G-E-8.E-F8.FD-8.D-"
PLAY "E-2. P8. A- B-8.B-B-4A-8.A-B-8.B-4 >D-8.D- P2 D-4 D8D4C+8D8.<B-G8.F"
PLAY "B-2.B-4 A8.AB-8.>C<G8.GA8.B- E-2 P8. GB-8.>CD4D8D-4D-4D-8"
PLAY "C1 D8.<B->C8.<B->D4D-8.D-16. C8.<AB-8.A>C4<B4"
PLAY "B-8.GB-8.>CD8.CD8.E- F4 ML F8D8 MN P2"
PLAY "F8F8E8.E-8C+8D8.<B-G4 B-1"
END SUB
SUB HickoryDickoryDock
PLAY "MS O2 L8 T160 EFGFED E P8 P8 P4 E"
PLAY "E P8 GF P8 D E P8 P8 P4 E"
PLAY "E P8 EG4G F P8 FA4."
PLAY "GAGFED C P8 P8 P4 P8"
END SUB
SUB JohnJacobJingleheimerSchmidt
PLAY "O2 MS T160 L8 F+2E4D4 C+GGGG4 P4"
PLAY "G2A4E4 F+2 P4 P8 <A A>F+F+F+F+4.<A"
PLAY "B4>GGGG4 P4 A4A8.B16AGF+E"
PLAY "DAAAAGF+E D2 P2"
END SUB
SUB LittleCabinInTheWood
PLAY "MS T160 O2 L4 CFFG FEG2 CGGG8A8"
PLAY "GFA2 CAAB- AGB-2"
PLAY "EEDE F2. P4 >C+<C+>C+<C+ C+C+>C+ P4"
PLAY "<CGGA GFA2 CAAB-"
PLAY "A8A8GB-2 EEDE F1"
END SUB
SUB LittleGreenFrog
PLAY "MS O2 T160 L4 C FF8G8A8G8F >CCC<C"
PLAY "FF8G8A8G8F G2.C"
PLAY "FF8G8A8G8F >CCC<A8B-8"
PLAY ">C<B-AG F2."
END SUB
SUB LittlePeterRabbit
PLAY "MS O2 T120 L16 D8.DD8.C<B8.>DG8.A B8.BB8.AG2"
PLAY "E8.EE8.F+G8.F+G8.E D8.ED8.<B>D2"
PLAY "D8.DD8.C<B8.>DG8.A B8.BB8.AG4G8.G"
PLAY "A8.AA8.AG4F+4 G1"
END SUB
SUB OldMacDonaldHadAFarm
PLAY "T120 O2 MS L8 FFFC DDC4 AAGG"
PLAY "F4.C FFFC DDC4"
PLAY "AAGG F4.C16C16 FFFC16C16"
PLAY "FFF4 F16F16FF16F16F F16F16F16F16FF"
PLAY "FFFC DDC4 AAGG F2"
END SUB
SUB PartitaInE
PLAY "O4 T120 ML L16 ED+ E8<B8G+8B8 EF+ED+ E8<B8G+8B8"
PLAY "EBF+BG+BABG+BF+BE>ED+C+<B>ED+C+<BAG+F+"
PLAY "EBF+BG+BABG+BF+BE>ED+C+<B>ED+C+<BAG+F+"
PLAY "EF+G+AB>C+D+EF+G+AF+ G+BEF+G+AB>C+D+EC+D+"
PLAY "E<BABG+BABG+BF+B E>ED+C+<BE>C+<EBEAE"
PLAY "G+BF+BG+BABG+BF+B E>ED+C+<BE>C+<EBEAE"
PLAY "G+ MN EEED+EEEF+ED+EEEG+ ML EF+EG+EAEF+E"
PLAY "G+ MN EEED+EEEF+ED+EEEG+ ML EF+EG+EAEF+E"
PLAY "G+EG+EG+EG+EG+EG+E"
PLAY "G+EG+D+G+EG+D+G+EG+D+"
PLAY "G+EG+DG+EG+DG+EG+D"
PLAY "AEAC+AEAC+AEAC+"
PLAY "AEA<B"
PLAY ">AEA<B>AEA<B"
PLAY ">G+EG+<B>G+EG+<B>G+EG+<B"
PLAY ">G+EG+<A>G+EG+<A>G+EG+<A"
PLAY ">F+EF+<A>F+EF+<A>F+EF+<A"
PLAY ">F+EF+<G+>F+EF+<G+>F+EF+<G+"
PLAY "MN >EEE<G+>EEE<G+>EEE<G+"
PLAY ">EEE<F+>EEE<F+>EEE<F+"
PLAY "ML >D+ED+<F+>D+ED+<F+>D+ED+<F+"
PLAY "EF+EF+G+BEF+G+BEF+ G+AG+AB>E<G+AB>E<G+A"
PLAY "B>C+<B>C+DG+<B>C+DG+<B>C+"
PLAY "DBG+ED<BG+EDC+D<B >C+D+C+D+FG+C+D+FG+C+D+"
PLAY "FF+FF+G+>C+<FF+G+>C+<FF+ G+AG+AB>F<G+AB>F<G+A"
PLAY "B>G+FC+BG+AF+FG+C+<B A>C+<AF+>F+D+EC+CD+<G+F+"
PLAY "EG+EC+EG+>C+<G+>EC+G+C+ CD+C<G+>G+GG+GG+D+EC+"
PLAY "CD+C<G+>F+FF+FF+D+EC+ CD+C<G+AG+AG+AD+EC+"
PLAY "CF+C+F+D+F+C+F+CF+D+F+"
PLAY "<G+>F+>D+<F+>C<F+>D+<F+>C<F+>D+<F+"
PLAY "<G+>E>C+<E>E<E>C+<E>E<E>C+<E"
PLAY "<G+>F+>D+<F+>C<F+>D+<F+>C<F+>D+<F+"
PLAY "<G+>E>C+<E>E<E>C+<E>E<E>C+<E"
PLAY "<G+>G>C+<G>E<G>C+<G>E<G>C+<G"
PLAY "<G+>G>C+<G>E<G>C+<G>E<G>C+<G"
PLAY "<G+>G+>C+<G+>D+<G+>C+<G+>D+<G+>C+<G+"
PLAY "<G+>F+>C<F+>D+<F+>C<F+>D+<F+>C<F+"
PLAY "C+4"
END SUB
SUB PreludioIV
PLAY "O3 T120 L16 ML <C >CE-GE-CE-C <G >C <E- >C"
PLAY "<C >CE-GE-CE-C <G >C <E- >C"
PLAY "<C >CFA-FCFC <A- >C <F >C"
PLAY "<C >CFA-FCFC <A- >C <F >C"
PLAY "<C B>DFD<B>D<B A- B F B"
PLAY "C B>DFD<B>D<B A- B F B"
PLAY "C G>CE-C<G>C<G E- G C G"
PLAY "<B- >G>CE-C<G>C<G E- G C G"
PLAY "<A- >G>CE-C<G>C<G E- G C G"
PLAY "<G >G>CE-C<G>C<G E- G C G"
PLAY "<F+ >A>CE-C<A>C<A E- A C A"
PLAY "<F+ >A>CE-C<A>C<A F+ A D A"
PLAY "<G >AB->D<B-AB-A D A <B- >A"
PLAY "<G >GB->D<B-GB-G <B- >G <G >G"
PLAY "<E- >B->DGD<B->D<B- G B- E- B-"
PLAY "C A>E-GE-<A>E-<A C A <A >A"
PLAY "<D >A>CF+C<A>C<A D A <A >A"
PLAY "<D >A>CF+C<A>C<A D A <A >A"
PLAY "<D >B->DGD<B->D<B- D B- <B- > B-"
PLAY "<D >>CF+AF+CF+C <E- >C <C >C"
PLAY "<<D >>DGB-GDGD <G >D <D >D"
PLAY "<<D >>DF+>C<F+DF+D <A >D <F+ >D"
PLAY "<<E- >>C+GB-GC+GC+ <G >C+ <E- >C+"
PLAY "<<D >>CE-AE-CE-C <F+ >C <D >C"
PLAY "<<D >B->EGE<B->E<B- E B- C+ B-"
PLAY "<D >A>CGC<A>C<A E- A C A"
PLAY "<D >A>CF+C<A>C<A D A <A >A"
PLAY "<D >GB->E<B-GB-G C+ G <B- >G"
PLAY "<D >F+A>E-<AF+AF+ C F+ <A >F+"
PLAY "<D >GB->D<B-GB-G <B- >G <G >G"
PLAY "<D >GA>C<AGAG E- G C G"
PLAY "<D >F+A>C<AF+AF+ D F+ <A >F+"
PLAY "<G >F+A>C<AF+AF+ E- F+ C F+"
PLAY "<G >GA>C<BGBG D G <B >G"
PLAY "<G >A>CF+C<A>C<A E- A C A"
PLAY "<G >>CF+AF+CF+C <E- >C <C >C"
PLAY "<<G >B>DGD<B>D<B G B D B"
PLAY "<G >B>DFD<B>D<B A- B F B"
PLAY "<G >G>CE-C<G>C<G E- G C G"
PLAY "<G >F+>CE-C<F+>C<F+ E- F+ C F+"
PLAY "<G >F+>CE-C<F+>C<F+ E- F+ C F+"
PLAY "<G >GB>D<BGB>DE-C<A>F+"
PLAY "<G4 P4 P4"
END SUB
SUB PreludioXV
PLAY "O3 ML L16 T104 <C >G>CE <<E >G>CE <<G >G>CD <<<G >>B>DG"
PLAY "<<D >A>DG <<F >A>DF <<A >A>DE <<<A >>>CEA"
PLAY "<<E >B>EA <E B>EG <<A >>CEF <<B >G>DF"
PLAY "<C G>DE <<E >G>CE <<F+ >A>CD <<G+ >EB>D"
PLAY "<<A >EB>C <<C >EA>C <<D >FAB- <E >CGB-"
PLAY "<F >CGA <E >CFA <D >DFB <C >EG>C"
PLAY "<<G >DG>C <<<G >>DGB <G >CGB <<G >>CF+A"
PLAY "<G B>DA <<G >B>DG <G A>CG <<G >A>CF"
PLAY "<G4 P8 P16 <GB>DFGB>D"
PLAY "<B GB>D FGB>D <B GB>DFGBF"
PLAY "E>C<GF E>C<GE D>C<FE DBFD"
PLAY "CBED CAEC <B>ADC <B>GD<B"
PLAY "A>GC<B A>F+C<A B>FDC <B>FD<B"
PLAY "G>EC<B A>EC<A F+>D<BA G>D<BG"
PLAY "E>C<AG F+>C<AF+ D>C<BA BG>D<F"
PLAY "GEF>D C<BAG >FDE-C <F+>E-DC"
PLAY "<B>D<BG A-FGD E-F+A>C <D>C<FB"
PLAY ">C1"
END SUB
SUB ShellBeCominRoundTheMountain
PLAY "O2 MS T180 L4 CD FFFF DC<A>C"
PLAY "F1.FG AAAA >C<AGF"
PLAY "G1.>C<B- AAAA GFFF"
PLAY "DDDD GFED CCCC"
PLAY "AGDE F1."
END SUB
SUB StarSpangledBanner
PLAY "T120 O2 MN L4 G8.E16CEG>C2E8.D16C<EF+G2G8G8>E4.D8C<B2A8.B16"
PLAY ">CC<GEC>E8.E16EFGG2F8E8DEFF2FE4.D8C<B2A8B8>C<EF+G2G>CCC8<B8"
PLAY "AAA>DF8E8D8C8C<B2G8G8>C4.D8E8F8G2C8D8E4.F8DC2"
END SUB
SUB TheTrain
PLAY "O2 MS L8 T160 F4 C4AAA4B-4 A4G4G2"
PLAY "CCG4 ML G4A4 MS GFF4F4A4"
PLAY "C4AAA4B-4 A4G4G2"
PLAY ">CCC4<EEE4F2."
END SUB
SUB WhereIsThumbkin
PLAY "MS O2 T160 L4 DEF+D DEF+D"
PLAY "F+GA2 F+GA2 A8B8A8G8F+D"
PLAY "A8B8A8G8F+D D<A>D2 D<A>D2"
END SUB